********************************************************************************************************************************
*Do-file for re-creating results in "Let Me Be the Judge?"                                                                     *
*When run, it will create all latex tables which will be saved to a sub-folder named tex of the user-set root directory.       *
********************************************************************************************************************************

*Set root directory in which data (data.dta) should be stored (add your preferred location inside quotation)
global root "/Users/krve3535/Dropbox/Selektion Nämndemän/Stata/"


* Create local sub-folder for tex files in your root directory
capture mkdir "${root}tex"

*Loads dataset experimentdata.txt which should be loacted in your root directory
use "${root}data.dta", clear

*install outreg2 which is used for Table D.26
ssc install outreg2




************************************************************
* Table 1 in main article: Treatment Effects               *
************************************************************

file open cibtj using "${root}tex/tab1.tex", write replace
file write cibtj "\begin{tabular}{lcccccccc}" _n
file write cibtj "\toprule" _n
file write cibtj " & & \multicolumn{7}{c}{Treatment Effects:}\\" _n
file write cibtj "\cline{3-9}" _n
file write cibtj " & & Arabic& Female \\" _n
file write cibtj " Outcome: & Mean: & Name & Name & Age 35 & Age 45  & Age 55 & Age 65 & Co-Partisan \\" _n
file write cibtj "\midrule" _n

xi: reg response arabic woman i.age sameparty i.party, absorb(kkod) robust
lincom _b[arabic] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[woman]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _Iage_35
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom _Iage_45
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom _Iage_55
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom _Iage_65
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}
lincom sameparty
local b7 : di %05.3f r(estimate)
local se7 : di %05.3f r(se)
if abs(`b7'/`se7') < 1.65 local star7
if abs(`b7'/`se7')  >= 1.65 local star7 \sym{*}
if abs(`b7'/`se7')  >= 1.96 local star7 \sym{**}
if abs(`b7'/`se7')  >= 2.58 local star7 \sym{***}
xi: reg response
local mean: di %05.3f _b[_cons]

file write cibtj "Response &" (`mean') " &" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "&" (`b7') "`star7'" "\\"_n
file write cibtj " &&" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")" " &" "(" (`se7') ")" "\\"_n

file write cibtj "\emph{Informativeness of Response:} \\"_n

xi: reg rewords arabic woman i.age sameparty i.party, absorb(kkod) robust
lincom _b[arabic] 
local b : di %05.2f r(estimate)
local se : di %05.2f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[woman]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _Iage_35
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom _Iage_45
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom _Iage_55
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom _Iage_65
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}
lincom sameparty
local b7 : di %05.3f r(estimate)
local se7 : di %05.3f r(se)
if abs(`b7'/`se7') < 1.65 local star7
if abs(`b7'/`se7')  >= 1.65 local star7 \sym{*}
if abs(`b7'/`se7')  >= 1.96 local star7 \sym{**}
if abs(`b7'/`se7')  >= 2.58 local star7 \sym{***}
xi: reg rewords
local mean: di %05.3f _b[_cons]

file write cibtj "\# of Words &" (`mean') " &" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "&" (`b7') "`star7'" "\\"_n
file write cibtj " &&" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")" " &" "(" (`se7') ")" "\\"_n


xi: reg questionsanswered  arabic woman i.age sameparty i.party, absorb(kkod) robust
lincom _b[arabic] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[woman]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _Iage_35
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom _Iage_45
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom _Iage_55
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom _Iage_65
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}
lincom sameparty
local b7 : di %05.3f r(estimate)
local se7 : di %05.3f r(se)
if abs(`b7'/`se7') < 1.65 local star7
if abs(`b7'/`se7')  >= 1.65 local star7 \sym{*}
if abs(`b7'/`se7')  >= 1.96 local star7 \sym{**}
if abs(`b7'/`se7')  >= 2.58 local star7 \sym{***}
xi: reg questionsanswered
local mean: di %05.3f _b[_cons]


file write cibtj "Questions Answered &" (`mean') " &" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "&" (`b7') "`star7'" "\\"_n
file write cibtj " &&" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")" " &" "(" (`se7') ")" "\\"_n


xi: reg addinfodummy arabic woman i.age sameparty i.party, absorb(kkod) robust
lincom _b[arabic] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[woman]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _Iage_35
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom _Iage_45
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom _Iage_55
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom _Iage_65
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}
lincom sameparty
local b7 : di %05.3f r(estimate)
local se7 : di %05.3f r(se)
if abs(`b7'/`se7') < 1.65 local star7
if abs(`b7'/`se7')  >= 1.65 local star7 \sym{*}
if abs(`b7'/`se7')  >= 1.96 local star7 \sym{**}
if abs(`b7'/`se7')  >= 2.58 local star7 \sym{***}
xi: reg addinfodummy
local mean: di %05.3f _b[_cons]


file write cibtj "Additional Information &" (`mean') " &" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "&" (`b7') "`star7'" "\\"_n
file write cibtj " &&" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")" " &" "(" (`se7') ")" "\\"_n


file write cibtj "\emph{Tone of Response:} \\"_n

xi:  reg usesname  arabic woman i.age sameparty i.party, absorb(kkod) robust
lincom _b[arabic] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[woman]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _Iage_35
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom _Iage_45
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom _Iage_55
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom _Iage_65
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}
lincom sameparty
local b7 : di %05.3f r(estimate)
local se7 : di %05.3f r(se)
if abs(`b7'/`se7') < 1.65 local star7
if abs(`b7'/`se7')  >= 1.65 local star7 \sym{*}
if abs(`b7'/`se7')  >= 1.96 local star7 \sym{**}
if abs(`b7'/`se7')  >= 2.58 local star7 \sym{***}
xi: reg usesname
local mean: di %05.3f _b[_cons]


file write cibtj "\hspace{0.25cm}Uses Name &" (`mean') " &" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "&" (`b7') "`star7'" "\\"_n
file write cibtj " &&" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")" " &" "(" (`se7') ")" "\\"_n



xi:  reg welcome  arabic woman i.age sameparty i.party, absorb(kkod) robust
lincom _b[arabic] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[woman]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _Iage_35
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom _Iage_45
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom _Iage_55
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom _Iage_65
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}
lincom sameparty
local b7 : di %05.3f r(estimate)
local se7 : di %05.3f r(se)
if abs(`b7'/`se7') < 1.65 local star7
if abs(`b7'/`se7')  >= 1.65 local star7 \sym{*}
if abs(`b7'/`se7')  >= 1.96 local star7 \sym{**}
if abs(`b7'/`se7')  >= 2.58 local star7 \sym{***}
xi: reg welcome
local mean: di %05.3f _b[_cons]


file write cibtj "\hspace{0.25cm}Welcomes E-mail &" (`mean') " &" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "&" (`b7') "`star7'" "\\"_n
file write cibtj " &&" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")" " &" "(" (`se7') ")" "\\"_n

file write cibtj "\emph{Follow-up Meeting:} \\"_n


xi:  reg meeting  arabic woman i.age sameparty i.party, absorb(kkod) robust
lincom _b[arabic] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[woman]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _Iage_35
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom _Iage_45
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom _Iage_55
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom _Iage_65
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}
lincom sameparty
local b7 : di %05.3f r(estimate)
local se7 : di %05.3f r(se)
if abs(`b7'/`se7') < 1.65 local star7
if abs(`b7'/`se7')  >= 1.65 local star7 \sym{*}
if abs(`b7'/`se7')  >= 1.96 local star7 \sym{**}
if abs(`b7'/`se7')  >= 2.58 local star7 \sym{***}
xi: reg meeting
local mean: di %05.3f _b[_cons]


file write cibtj "\hspace{0.25cm}Future Party Contact &" (`mean') " &" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "&" (`b7') "`star7'" "\\"_n
file write cibtj " &&" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")" " &" "(" (`se7') ")" "\\"_n

xi:  reg pmeeting  arabic woman i.age sameparty i.party, absorb(kkod) robust
lincom _b[arabic] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[woman]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _Iage_35
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom _Iage_45
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom _Iage_55
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom _Iage_65
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}
lincom sameparty
local b7 : di %05.3f r(estimate)
local se7 : di %05.3f r(se)
if abs(`b7'/`se7') < 1.65 local star7
if abs(`b7'/`se7')  >= 1.65 local star7 \sym{*}
if abs(`b7'/`se7')  >= 1.96 local star7 \sym{**}
if abs(`b7'/`se7')  >= 2.58 local star7 \sym{***}
xi: reg pmeeting
local mean: di %05.3f _b[_cons]


file write cibtj "\hspace{0.25cm}Future Personal Contact &" (`mean') " &" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "&" (`b7') "`star7'" "\\"_n
file write cibtj " &&" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")" " &" "(" (`se7') ")" "\\"_n

file write cibtj "\bottomrule" _n
file write cibtj "\end{tabular}"
file close cibtj




**************
*For Appendix*
**************


*********************************************************************************
*Table B.7 in Appendix: Descriptives Statistics for Outcome Variables           *
*********************************************************************************

file open outcomescibtj using "${root}tex/tabB7.tex", write replace
file write outcomescibtj "\begin{tabular}{lcc}" _n
file write outcomescibtj "\toprule" _n
file write outcomescibtj " Outcome: & Mean & Std Dev.\\" _n
file write outcomescibtj "\midrule" _n

sum response
local mean: di %05.3f r(mean)
local sd: di %05.3f r(sd)
file write outcomescibtj "Response & `mean' & `sd'\\" _n


file write outcomescibtj "\emph{Informativeness of Response:} \\" _n

sum rewords 
local mean: di %05.3f r(mean)
local sd: di %05.3f r(sd)
file write outcomescibtj "\hspace{0.25cm}\# of Words  & `mean' & `sd'\\" _n

sum questionsanswered
local mean: di %05.3f r(mean)
local sd: di %05.3f r(sd)
file write outcomescibtj "\hspace{0.25cm}Answers Questions  & `mean' & `sd'\\" _n

sum addinfodummy
local mean: di %05.3f r(mean)
local sd: di %05.3f r(sd)
file write outcomescibtj "\hspace{0.25cm}Additional Information & `mean' & `sd'\\" _n

file write outcomescibtj "\emph{Tone of Response:} \\"_n

sum usesname
local mean: di %05.3f r(mean)
local sd: di %05.3f r(sd)
file write outcomescibtj "\hspace{0.25cm}Uses Name & `mean' & `sd'\\" _n

sum welcome
local mean: di %05.3f r(mean)
local sd: di %05.3f r(sd)
file write outcomescibtj "\hspace{0.25cm}Welcomes E-mail & `mean' & `sd'\\" _n

file write outcomescibtj "\emph{Follow-up Meeting:} \\"_n

sum meeting
local mean: di %05.3f r(mean)
local sd: di %05.3f r(sd)
file write outcomescibtj "\hspace{0.25cm}Future Party Contact & `mean' & `sd'\\" _n

sum pmeeting
local mean: di %05.3f r(mean)
local sd: di %05.3f r(sd)
file write outcomescibtj "\hspace{0.25cm}Future Personal Contact & `mean' & `sd'\\" _n

file write outcomescibtj "\emph{Party Membership and Ideology:} \\"_n

sum checkparty
local mean: di %05.3f r(mean)
local sd: di %05.3f r(sd)
file write outcomescibtj "\hspace{0.25cm}Party Membership Check & `mean' & `sd'\\" _n

sum conditionalparty
local mean: di %05.3f r(mean)
local sd: di %05.3f r(sd)
file write outcomescibtj "\hspace{0.25cm}Party Membership Required & `mean' & `sd'\\" _n

sum checkideology
local mean: di %05.3f r(mean)
local sd: di %05.3f r(sd)
file write outcomescibtj "\hspace{0.25cm}Party Ideology Check & `mean' & `sd'\\" _n

sum conditionalideology
local mean: di %05.3f r(mean)
local sd: di %05.3f r(sd)
file write outcomescibtj "\hspace{0.25cm}Party Ideology Required & `mean' & `sd'\\" _n



file write outcomescibtj "\bottomrule" _n
file write outcomescibtj"\end{tabular}"

file close outcomescibtj



************************************************************************************
* Table D.8 in Appendix: Treatment Effects w/o controls for party and municipality *
************************************************************************************

file open cibtj using "${root}tex/tabD8.tex", write replace

file write cibtj "\begin{tabular}{lccccccc}" _n
file write cibtj "\toprule" _n
file write cibtj "  & \multicolumn{7}{c}{Treatment Effects:}\\" _n
file write cibtj "  & Arabic& Female \\" _n
file write cibtj " Outcome: & Name & Name & Age 35 & Age 45  & Age 55 & Age 65 & Co-Partisan \\" _n
file write cibtj "\midrule" _n

xi: reg response arabic woman i.age sameparty, robust
lincom _b[arabic] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[woman]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _Iage_35
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom _Iage_45
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom _Iage_55
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom _Iage_65
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}
lincom sameparty
local b7 : di %05.3f r(estimate)
local se7 : di %05.3f r(se)
if abs(`b7'/`se7') < 1.65 local star7
if abs(`b7'/`se7')  >= 1.65 local star7 \sym{*}
if abs(`b7'/`se7')  >= 1.96 local star7 \sym{**}
if abs(`b7'/`se7')  >= 2.58 local star7 \sym{***}


file write cibtj "Response &" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "&" (`b7') "`star7'" "\\"_n
file write cibtj " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")" " &" "(" (`se7') ")" "\\"_n

file write cibtj "\emph{Informativeness of Response:} \\"_n

xi: reg rewords arabic woman i.age sameparty, robust
lincom _b[arabic] 
local b : di %05.2f r(estimate)
local se : di %05.2f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[woman]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _Iage_35
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom _Iage_45
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom _Iage_55
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom _Iage_65
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}
lincom sameparty
local b7 : di %05.3f r(estimate)
local se7 : di %05.3f r(se)
if abs(`b7'/`se7') < 1.65 local star7
if abs(`b7'/`se7')  >= 1.65 local star7 \sym{*}
if abs(`b7'/`se7')  >= 1.96 local star7 \sym{**}
if abs(`b7'/`se7')  >= 2.58 local star7 \sym{***}

file write cibtj "\# of Words &" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "&" (`b7') "`star7'" "\\"_n
file write cibtj " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")" " &" "(" (`se7') ")" "\\"_n


xi: reg questionsanswered  arabic woman i.age sameparty, robust
lincom _b[arabic] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[woman]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _Iage_35
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom _Iage_45
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom _Iage_55
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom _Iage_65
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}
lincom sameparty
local b7 : di %05.3f r(estimate)
local se7 : di %05.3f r(se)
if abs(`b7'/`se7') < 1.65 local star7
if abs(`b7'/`se7')  >= 1.65 local star7 \sym{*}
if abs(`b7'/`se7')  >= 1.96 local star7 \sym{**}
if abs(`b7'/`se7')  >= 2.58 local star7 \sym{***}


file write cibtj "Questions Answered &" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "&" (`b7') "`star7'" "\\"_n
file write cibtj " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")" " &" "(" (`se7') ")" "\\"_n


xi: reg addinfodummy arabic woman i.age sameparty, robust
lincom _b[arabic] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[woman]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _Iage_35
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom _Iage_45
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom _Iage_55
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom _Iage_65
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}
lincom sameparty
local b7 : di %05.3f r(estimate)
local se7 : di %05.3f r(se)
if abs(`b7'/`se7') < 1.65 local star7
if abs(`b7'/`se7')  >= 1.65 local star7 \sym{*}
if abs(`b7'/`se7')  >= 1.96 local star7 \sym{**}
if abs(`b7'/`se7')  >= 2.58 local star7 \sym{***}


file write cibtj "Additional Information &" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "&" (`b7') "`star7'" "\\"_n
file write cibtj " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")" " &" "(" (`se7') ")" "\\"_n


file write cibtj "\emph{Tone of Response:} \\"_n

xi:  reg usesname  arabic woman i.age sameparty, robust
lincom _b[arabic] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[woman]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _Iage_35
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom _Iage_45
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom _Iage_55
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom _Iage_65
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}
lincom sameparty
local b7 : di %05.3f r(estimate)
local se7 : di %05.3f r(se)
if abs(`b7'/`se7') < 1.65 local star7
if abs(`b7'/`se7')  >= 1.65 local star7 \sym{*}
if abs(`b7'/`se7')  >= 1.96 local star7 \sym{**}
if abs(`b7'/`se7')  >= 2.58 local star7 \sym{***}


file write cibtj "\hspace{0.25cm}Uses Name&" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "&" (`b7') "`star7'" "\\"_n
file write cibtj " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")" " &" "(" (`se7') ")" "\\"_n



xi:  reg welcome  arabic woman i.age sameparty,robust
lincom _b[arabic] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[woman]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _Iage_35
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom _Iage_45
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom _Iage_55
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom _Iage_65
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}
lincom sameparty
local b7 : di %05.3f r(estimate)
local se7 : di %05.3f r(se)
if abs(`b7'/`se7') < 1.65 local star7
if abs(`b7'/`se7')  >= 1.65 local star7 \sym{*}
if abs(`b7'/`se7')  >= 1.96 local star7 \sym{**}
if abs(`b7'/`se7')  >= 2.58 local star7 \sym{***}


file write cibtj "\hspace{0.25cm}Welcomes E-mail&" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "&" (`b7') "`star7'" "\\"_n
file write cibtj " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")" " &" "(" (`se7') ")" "\\"_n

file write cibtj "\emph{Follow-up Meeting:} \\"_n


xi:  reg meeting  arabic woman i.age sameparty, robust
lincom _b[arabic] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[woman]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _Iage_35
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom _Iage_45
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom _Iage_55
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom _Iage_65
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}
lincom sameparty
local b7 : di %05.3f r(estimate)
local se7 : di %05.3f r(se)
if abs(`b7'/`se7') < 1.65 local star7
if abs(`b7'/`se7')  >= 1.65 local star7 \sym{*}
if abs(`b7'/`se7')  >= 1.96 local star7 \sym{**}
if abs(`b7'/`se7')  >= 2.58 local star7 \sym{***}


file write cibtj "\hspace{0.25cm}Future Party Contact&" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "&" (`b7') "`star7'" "\\"_n
file write cibtj " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")" " &" "(" (`se7') ")" "\\"_n

xi:  reg pmeeting  arabic woman i.age sameparty, robust
lincom _b[arabic] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[woman]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _Iage_35
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom _Iage_45
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom _Iage_55
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom _Iage_65
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}
lincom sameparty
local b7 : di %05.3f r(estimate)
local se7 : di %05.3f r(se)
if abs(`b7'/`se7') < 1.65 local star7
if abs(`b7'/`se7')  >= 1.65 local star7 \sym{*}
if abs(`b7'/`se7')  >= 1.96 local star7 \sym{**}
if abs(`b7'/`se7')  >= 2.58 local star7 \sym{***}


file write cibtj "\hspace{0.25cm}Future Personal Contact&" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "&" (`b7') "`star7'" "\\"_n
file write cibtj " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")" " &" "(" (`se7') ")" "\\"_n

file write cibtj "\bottomrule" _n
file write cibtj "\end{tabular}"
file close cibtj



************************************************************************************
* Table D.9 in Appendix: Treatment Effects w controls for  municipality            *
************************************************************************************

file open cibtj using "${root}tex/tabD9.tex", write replace

file write cibtj "\begin{tabular}{lccccccc}" _n
file write cibtj "\toprule" _n
file write cibtj "  & \multicolumn{7}{c}{Treatment Effects:}\\" _n
file write cibtj "  & Arabic& Female \\" _n
file write cibtj " Outcome: & Name & Name & Age 35 & Age 45  & Age 55 & Age 65 & Co-Partisan \\" _n
file write cibtj "\midrule" _n

xi: reg response arabic woman i.age sameparty, absorb(kkod) robust
lincom _b[arabic] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[woman]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _Iage_35
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom _Iage_45
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom _Iage_55
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom _Iage_65
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}
lincom sameparty
local b7 : di %05.3f r(estimate)
local se7 : di %05.3f r(se)
if abs(`b7'/`se7') < 1.65 local star7
if abs(`b7'/`se7')  >= 1.65 local star7 \sym{*}
if abs(`b7'/`se7')  >= 1.96 local star7 \sym{**}
if abs(`b7'/`se7')  >= 2.58 local star7 \sym{***}


file write cibtj "Response &" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "&" (`b7') "`star7'" "\\"_n
file write cibtj " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")" " &" "(" (`se7') ")" "\\"_n

file write cibtj "\emph{Informativeness of Response:} \\"_n

xi: reg rewords arabic woman i.age sameparty, absorb(kkod) robust
lincom _b[arabic] 
local b : di %05.2f r(estimate)
local se : di %05.2f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[woman]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _Iage_35
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom _Iage_45
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom _Iage_55
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom _Iage_65
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}
lincom sameparty
local b7 : di %05.3f r(estimate)
local se7 : di %05.3f r(se)
if abs(`b7'/`se7') < 1.65 local star7
if abs(`b7'/`se7')  >= 1.65 local star7 \sym{*}
if abs(`b7'/`se7')  >= 1.96 local star7 \sym{**}
if abs(`b7'/`se7')  >= 2.58 local star7 \sym{***}

file write cibtj "\# of Words &" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "&" (`b7') "`star7'" "\\"_n
file write cibtj " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")" " &" "(" (`se7') ")" "\\"_n


xi: reg questionsanswered  arabic woman i.age sameparty, absorb(kkod) robust
lincom _b[arabic] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[woman]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _Iage_35
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom _Iage_45
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom _Iage_55
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom _Iage_65
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}
lincom sameparty
local b7 : di %05.3f r(estimate)
local se7 : di %05.3f r(se)
if abs(`b7'/`se7') < 1.65 local star7
if abs(`b7'/`se7')  >= 1.65 local star7 \sym{*}
if abs(`b7'/`se7')  >= 1.96 local star7 \sym{**}
if abs(`b7'/`se7')  >= 2.58 local star7 \sym{***}


file write cibtj "Questions Answered &" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "&" (`b7') "`star7'" "\\"_n
file write cibtj " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")" " &" "(" (`se7') ")" "\\"_n


xi: reg addinfodummy arabic woman i.age sameparty, absorb(kkod) robust
lincom _b[arabic] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[woman]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _Iage_35
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom _Iage_45
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom _Iage_55
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom _Iage_65
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}
lincom sameparty
local b7 : di %05.3f r(estimate)
local se7 : di %05.3f r(se)
if abs(`b7'/`se7') < 1.65 local star7
if abs(`b7'/`se7')  >= 1.65 local star7 \sym{*}
if abs(`b7'/`se7')  >= 1.96 local star7 \sym{**}
if abs(`b7'/`se7')  >= 2.58 local star7 \sym{***}


file write cibtj "Additional Information &" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "&" (`b7') "`star7'" "\\"_n
file write cibtj " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")" " &" "(" (`se7') ")" "\\"_n


file write cibtj "\emph{Tone of Response:} \\"_n

xi:  reg usesname  arabic woman i.age sameparty, absorb(kkod) robust
lincom _b[arabic] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[woman]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _Iage_35
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom _Iage_45
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom _Iage_55
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom _Iage_65
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}
lincom sameparty
local b7 : di %05.3f r(estimate)
local se7 : di %05.3f r(se)
if abs(`b7'/`se7') < 1.65 local star7
if abs(`b7'/`se7')  >= 1.65 local star7 \sym{*}
if abs(`b7'/`se7')  >= 1.96 local star7 \sym{**}
if abs(`b7'/`se7')  >= 2.58 local star7 \sym{***}


file write cibtj "\hspace{0.25cm}Uses Name&" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "&" (`b7') "`star7'" "\\"_n
file write cibtj " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")" " &" "(" (`se7') ")" "\\"_n



xi:  reg welcome  arabic woman i.age sameparty, absorb(kkod) robust
lincom _b[arabic] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[woman]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _Iage_35
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom _Iage_45
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom _Iage_55
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom _Iage_65
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}
lincom sameparty
local b7 : di %05.3f r(estimate)
local se7 : di %05.3f r(se)
if abs(`b7'/`se7') < 1.65 local star7
if abs(`b7'/`se7')  >= 1.65 local star7 \sym{*}
if abs(`b7'/`se7')  >= 1.96 local star7 \sym{**}
if abs(`b7'/`se7')  >= 2.58 local star7 \sym{***}


file write cibtj "\hspace{0.25cm}Welcomes E-mail&" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "&" (`b7') "`star7'" "\\"_n
file write cibtj " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")" " &" "(" (`se7') ")" "\\"_n

file write cibtj "\emph{Follow-up Meeting:} \\"_n


xi:  reg meeting  arabic woman i.age sameparty, absorb(kkod) robust
lincom _b[arabic] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[woman]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _Iage_35
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom _Iage_45
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom _Iage_55
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom _Iage_65
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}
lincom sameparty
local b7 : di %05.3f r(estimate)
local se7 : di %05.3f r(se)
if abs(`b7'/`se7') < 1.65 local star7
if abs(`b7'/`se7')  >= 1.65 local star7 \sym{*}
if abs(`b7'/`se7')  >= 1.96 local star7 \sym{**}
if abs(`b7'/`se7')  >= 2.58 local star7 \sym{***}


file write cibtj "\hspace{0.25cm}Future Party Contact&" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "&" (`b7') "`star7'" "\\"_n
file write cibtj " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")" " &" "(" (`se7') ")" "\\"_n

xi:  reg pmeeting  arabic woman i.age sameparty, absorb(kkod) robust
lincom _b[arabic] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[woman]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _Iage_35
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom _Iage_45
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom _Iage_55
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom _Iage_65
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}
lincom sameparty
local b7 : di %05.3f r(estimate)
local se7 : di %05.3f r(se)
if abs(`b7'/`se7') < 1.65 local star7
if abs(`b7'/`se7')  >= 1.65 local star7 \sym{*}
if abs(`b7'/`se7')  >= 1.96 local star7 \sym{**}
if abs(`b7'/`se7')  >= 2.58 local star7 \sym{***}


file write cibtj "\hspace{0.25cm}Future Personal Contact&" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "&" (`b7') "`star7'" "\\"_n
file write cibtj " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")" " &" "(" (`se7') ")" "\\"_n

file write cibtj "\bottomrule" _n
file write cibtj "\end{tabular}"
file close cibtj


************************************************************************************
* Table D.10 in Appendix: Treatment Effects w controls for  party                  *
************************************************************************************

file open cibtj using "${root}tex/tabD10.tex", write replace

file write cibtj "\begin{tabular}{lccccccc}" _n
file write cibtj "\toprule" _n
file write cibtj "  & \multicolumn{7}{c}{Treatment Effects:}\\" _n
file write cibtj "  & Arabic& Female \\" _n
file write cibtj " Outcome: & Name & Name & Age 35 & Age 45  & Age 55 & Age 65 & Co-Partisan \\" _n
file write cibtj "\midrule" _n

xi: reg response arabic woman i.age sameparty i.party, robust
lincom _b[arabic] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[woman]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _Iage_35
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom _Iage_45
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom _Iage_55
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom _Iage_65
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}
lincom sameparty
local b7 : di %05.3f r(estimate)
local se7 : di %05.3f r(se)
if abs(`b7'/`se7') < 1.65 local star7
if abs(`b7'/`se7')  >= 1.65 local star7 \sym{*}
if abs(`b7'/`se7')  >= 1.96 local star7 \sym{**}
if abs(`b7'/`se7')  >= 2.58 local star7 \sym{***}


file write cibtj "Response &" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "&" (`b7') "`star7'" "\\"_n
file write cibtj " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")" " &" "(" (`se7') ")" "\\"_n

file write cibtj "\emph{Informativeness of Response:} \\"_n

xi: reg rewords arabic woman i.age sameparty i.party, robust
lincom _b[arabic] 
local b : di %05.2f r(estimate)
local se : di %05.2f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[woman]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _Iage_35
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom _Iage_45
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom _Iage_55
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom _Iage_65
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}
lincom sameparty
local b7 : di %05.3f r(estimate)
local se7 : di %05.3f r(se)
if abs(`b7'/`se7') < 1.65 local star7
if abs(`b7'/`se7')  >= 1.65 local star7 \sym{*}
if abs(`b7'/`se7')  >= 1.96 local star7 \sym{**}
if abs(`b7'/`se7')  >= 2.58 local star7 \sym{***}

file write cibtj "\# of Words &" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "&" (`b7') "`star7'" "\\"_n
file write cibtj " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")" " &" "(" (`se7') ")" "\\"_n


xi: reg questionsanswered  arabic woman i.age sameparty i.party, robust
lincom _b[arabic] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[woman]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _Iage_35
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom _Iage_45
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom _Iage_55
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom _Iage_65
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}
lincom sameparty
local b7 : di %05.3f r(estimate)
local se7 : di %05.3f r(se)
if abs(`b7'/`se7') < 1.65 local star7
if abs(`b7'/`se7')  >= 1.65 local star7 \sym{*}
if abs(`b7'/`se7')  >= 1.96 local star7 \sym{**}
if abs(`b7'/`se7')  >= 2.58 local star7 \sym{***}


file write cibtj "Questions Answered &" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "&" (`b7') "`star7'" "\\"_n
file write cibtj " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")" " &" "(" (`se7') ")" "\\"_n


xi: reg addinfodummy arabic woman i.age sameparty i.party, robust
lincom _b[arabic] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[woman]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _Iage_35
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom _Iage_45
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom _Iage_55
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom _Iage_65
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}
lincom sameparty
local b7 : di %05.3f r(estimate)
local se7 : di %05.3f r(se)
if abs(`b7'/`se7') < 1.65 local star7
if abs(`b7'/`se7')  >= 1.65 local star7 \sym{*}
if abs(`b7'/`se7')  >= 1.96 local star7 \sym{**}
if abs(`b7'/`se7')  >= 2.58 local star7 \sym{***}


file write cibtj "Additional Information &" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "&" (`b7') "`star7'" "\\"_n
file write cibtj " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")" " &" "(" (`se7') ")" "\\"_n


file write cibtj "\emph{Tone of Response:} \\"_n

xi:  reg usesname  arabic woman i.age sameparty i.party, robust
lincom _b[arabic] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[woman]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _Iage_35
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom _Iage_45
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom _Iage_55
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom _Iage_65
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}
lincom sameparty
local b7 : di %05.3f r(estimate)
local se7 : di %05.3f r(se)
if abs(`b7'/`se7') < 1.65 local star7
if abs(`b7'/`se7')  >= 1.65 local star7 \sym{*}
if abs(`b7'/`se7')  >= 1.96 local star7 \sym{**}
if abs(`b7'/`se7')  >= 2.58 local star7 \sym{***}


file write cibtj "\hspace{0.25cm}Uses Name&" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "&" (`b7') "`star7'" "\\"_n
file write cibtj " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")" " &" "(" (`se7') ")" "\\"_n



xi:  reg welcome  arabic woman i.age sameparty i.party,robust
lincom _b[arabic] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[woman]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _Iage_35
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom _Iage_45
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom _Iage_55
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom _Iage_65
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}
lincom sameparty
local b7 : di %05.3f r(estimate)
local se7 : di %05.3f r(se)
if abs(`b7'/`se7') < 1.65 local star7
if abs(`b7'/`se7')  >= 1.65 local star7 \sym{*}
if abs(`b7'/`se7')  >= 1.96 local star7 \sym{**}
if abs(`b7'/`se7')  >= 2.58 local star7 \sym{***}


file write cibtj "\hspace{0.25cm}Welcomes E-mail&" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "&" (`b7') "`star7'" "\\"_n
file write cibtj " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")" " &" "(" (`se7') ")" "\\"_n

file write cibtj "\emph{Follow-up Meeting:} \\"_n


xi:  reg meeting  arabic woman i.age sameparty i.party, robust
lincom _b[arabic] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[woman]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _Iage_35
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom _Iage_45
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom _Iage_55
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom _Iage_65
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}
lincom sameparty
local b7 : di %05.3f r(estimate)
local se7 : di %05.3f r(se)
if abs(`b7'/`se7') < 1.65 local star7
if abs(`b7'/`se7')  >= 1.65 local star7 \sym{*}
if abs(`b7'/`se7')  >= 1.96 local star7 \sym{**}
if abs(`b7'/`se7')  >= 2.58 local star7 \sym{***}


file write cibtj "\hspace{0.25cm}Future Party Contact&" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "&" (`b7') "`star7'" "\\"_n
file write cibtj " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")" " &" "(" (`se7') ")" "\\"_n

xi:  reg pmeeting  arabic woman i.age sameparty i.party, robust
lincom _b[arabic] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[woman]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _Iage_35
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom _Iage_45
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom _Iage_55
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom _Iage_65
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}
lincom sameparty
local b7 : di %05.3f r(estimate)
local se7 : di %05.3f r(se)
if abs(`b7'/`se7') < 1.65 local star7
if abs(`b7'/`se7')  >= 1.65 local star7 \sym{*}
if abs(`b7'/`se7')  >= 1.96 local star7 \sym{**}
if abs(`b7'/`se7')  >= 2.58 local star7 \sym{***}


file write cibtj "\hspace{0.25cm}Future Personal Contact&" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "&" (`b7') "`star7'" "\\"_n
file write cibtj " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")" " &" "(" (`se7') ")" "\\"_n

file write cibtj "\bottomrule" _n
file write cibtj "\end{tabular}"
file close cibtj



************************************************************
* Table D.11 in Appendix: Responses only                   *
************************************************************

file open cibtj using "${root}tex/tabD11.tex", write replace
file write cibtj "\begin{tabular}{lccccccc}" _n
file write cibtj "\toprule" _n
file write cibtj "  & \multicolumn{7}{c}{Treatment Effects:}\\" _n
file write cibtj "  & Arabic& Female \\" _n
file write cibtj " Outcome: & Name & Name & Age 35 & Age 45  & Age 55 & Age 65 & Co-Partisan \\" _n
file write cibtj "\midrule" _n

file write cibtj "\emph{Informativeness of Response:} \\"_n

xi: reg rewords arabic woman i.age sameparty i.party if response==1, absorb(kkod) robust
lincom _b[arabic] 
local b : di %05.2f r(estimate)
local se : di %05.2f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[woman]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _Iage_35
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom _Iage_45
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom _Iage_55
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom _Iage_65
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}
lincom sameparty
local b7 : di %05.3f r(estimate)
local se7 : di %05.3f r(se)
if abs(`b7'/`se7') < 1.65 local star7
if abs(`b7'/`se7')  >= 1.65 local star7 \sym{*}
if abs(`b7'/`se7')  >= 1.96 local star7 \sym{**}
if abs(`b7'/`se7')  >= 2.58 local star7 \sym{***}

file write cibtj "\# of Words &" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "&" (`b7') "`star7'" "\\"_n
file write cibtj " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")" " &" "(" (`se7') ")" "\\"_n


xi: reg questionsanswered  arabic woman i.age sameparty i.party if response==1, absorb(kkod) robust
lincom _b[arabic] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[woman]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _Iage_35
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom _Iage_45
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom _Iage_55
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom _Iage_65
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}
lincom sameparty
local b7 : di %05.3f r(estimate)
local se7 : di %05.3f r(se)
if abs(`b7'/`se7') < 1.65 local star7
if abs(`b7'/`se7')  >= 1.65 local star7 \sym{*}
if abs(`b7'/`se7')  >= 1.96 local star7 \sym{**}
if abs(`b7'/`se7')  >= 2.58 local star7 \sym{***}


file write cibtj "Questions Answered &" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "&" (`b7') "`star7'" "\\"_n
file write cibtj " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")" " &" "(" (`se7') ")" "\\"_n


xi: reg addinfodummy arabic woman i.age sameparty i.party if response==1, absorb(kkod) robust
lincom _b[arabic] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[woman]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _Iage_35
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom _Iage_45
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom _Iage_55
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom _Iage_65
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}
lincom sameparty
local b7 : di %05.3f r(estimate)
local se7 : di %05.3f r(se)
if abs(`b7'/`se7') < 1.65 local star7
if abs(`b7'/`se7')  >= 1.65 local star7 \sym{*}
if abs(`b7'/`se7')  >= 1.96 local star7 \sym{**}
if abs(`b7'/`se7')  >= 2.58 local star7 \sym{***}


file write cibtj "Additional Information &" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "&" (`b7') "`star7'" "\\"_n
file write cibtj " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")" " &" "(" (`se7') ")" "\\"_n


file write cibtj "\emph{Tone of Response:} \\"_n

xi:  reg usesname  arabic woman i.age sameparty i.party if response==1, absorb(kkod) robust
lincom _b[arabic] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[woman]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _Iage_35
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom _Iage_45
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom _Iage_55
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom _Iage_65
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}
lincom sameparty
local b7 : di %05.3f r(estimate)
local se7 : di %05.3f r(se)
if abs(`b7'/`se7') < 1.65 local star7
if abs(`b7'/`se7')  >= 1.65 local star7 \sym{*}
if abs(`b7'/`se7')  >= 1.96 local star7 \sym{**}
if abs(`b7'/`se7')  >= 2.58 local star7 \sym{***}


file write cibtj "\hspace{0.25cm}Uses Name&" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "&" (`b7') "`star7'" "\\"_n
file write cibtj " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")" " &" "(" (`se7') ")" "\\"_n



xi:  reg welcome  arabic woman i.age sameparty i.party if response==1, absorb(kkod) robust
lincom _b[arabic] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[woman]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _Iage_35
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom _Iage_45
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom _Iage_55
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom _Iage_65
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}
lincom sameparty
local b7 : di %05.3f r(estimate)
local se7 : di %05.3f r(se)
if abs(`b7'/`se7') < 1.65 local star7
if abs(`b7'/`se7')  >= 1.65 local star7 \sym{*}
if abs(`b7'/`se7')  >= 1.96 local star7 \sym{**}
if abs(`b7'/`se7')  >= 2.58 local star7 \sym{***}


file write cibtj "\hspace{0.25cm}Welcomes E-mail&" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "&" (`b7') "`star7'" "\\"_n
file write cibtj " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")" " &" "(" (`se7') ")" "\\"_n

file write cibtj "\emph{Follow-up Meeting:} \\"_n


xi:  reg meeting  arabic woman i.age sameparty i.party if response==1, absorb(kkod) robust
lincom _b[arabic] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[woman]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _Iage_35
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom _Iage_45
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom _Iage_55
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom _Iage_65
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}
lincom sameparty
local b7 : di %05.3f r(estimate)
local se7 : di %05.3f r(se)
if abs(`b7'/`se7') < 1.65 local star7
if abs(`b7'/`se7')  >= 1.65 local star7 \sym{*}
if abs(`b7'/`se7')  >= 1.96 local star7 \sym{**}
if abs(`b7'/`se7')  >= 2.58 local star7 \sym{***}


file write cibtj "\hspace{0.25cm}Future Party Contact&" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "&" (`b7') "`star7'" "\\"_n
file write cibtj " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")" " &" "(" (`se7') ")" "\\"_n

xi:  reg pmeeting  arabic woman i.age sameparty i.party if response==1, absorb(kkod) robust
lincom _b[arabic] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[woman]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _Iage_35
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom _Iage_45
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom _Iage_55
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom _Iage_65
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}
lincom sameparty
local b7 : di %05.3f r(estimate)
local se7 : di %05.3f r(se)
if abs(`b7'/`se7') < 1.65 local star7
if abs(`b7'/`se7')  >= 1.65 local star7 \sym{*}
if abs(`b7'/`se7')  >= 1.96 local star7 \sym{**}
if abs(`b7'/`se7')  >= 2.58 local star7 \sym{***}


file write cibtj "\hspace{0.25cm}Future Personal Contact&" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "&" (`b7') "`star7'" "\\"_n
file write cibtj " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")" " &" "(" (`se7') ")" "\\"_n

file write cibtj "\bottomrule" _n
file write cibtj "\end{tabular}"
file close cibtj


************************************************************
* Table D.12 in Appendix: Cumulative Bias?                 *
************************************************************


file open cibtj using "${root}tex/tabD12.tex", write replace

file write cibtj "\begin{tabular}{lccccccc}" _n
file write cibtj "\toprule" _n
file write cibtj "  & \multicolumn{7}{c}{Treatment Effects:}\\" _n
file write cibtj " Positive & Arabic& Female \\" _n
file write cibtj " Outcomes: & Name & Name & Age 35 & Age 45  & Age 55 & Age 65 & Co-Partisan \\" _n
file write cibtj "\midrule" _n

xi: reg pos1 arabic woman i.age sameparty i.party, robust absorb(kkod)
lincom _b[arabic] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[woman]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _Iage_35
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom _Iage_45
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom _Iage_55
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom _Iage_65
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}
lincom sameparty
local b7 : di %05.3f r(estimate)
local se7 : di %05.3f r(se)
if abs(`b7'/`se7') < 1.65 local star7
if abs(`b7'/`se7')  >= 1.65 local star7 \sym{*}
if abs(`b7'/`se7')  >= 1.96 local star7 \sym{**}
if abs(`b7'/`se7')  >= 2.58 local star7 \sym{***}


file write cibtj "$>$0&" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "&" (`b7') "`star7'" "\\"_n
file write cibtj " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")" " &" "(" (`se7') ")" "\\"_n

xi: reg pos2 arabic woman i.age sameparty i.party, robust absorb(kkod)
lincom _b[arabic] 
local b : di %05.2f r(estimate)
local se : di %05.2f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[woman]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _Iage_35
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom _Iage_45
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom _Iage_55
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom _Iage_65
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}
lincom sameparty
local b7 : di %05.3f r(estimate)
local se7 : di %05.3f r(se)
if abs(`b7'/`se7') < 1.65 local star7
if abs(`b7'/`se7')  >= 1.65 local star7 \sym{*}
if abs(`b7'/`se7')  >= 1.96 local star7 \sym{**}
if abs(`b7'/`se7')  >= 2.58 local star7 \sym{***}

file write cibtj "$>$1&" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "&" (`b7') "`star7'" "\\"_n
file write cibtj " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")" " &" "(" (`se7') ")" "\\"_n


xi: reg pos3  arabic woman i.age sameparty i.party, robust absorb(kkod)
lincom _b[arabic] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[woman]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _Iage_35
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom _Iage_45
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom _Iage_55
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom _Iage_65
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}
lincom sameparty
local b7 : di %05.3f r(estimate)
local se7 : di %05.3f r(se)
if abs(`b7'/`se7') < 1.65 local star7
if abs(`b7'/`se7')  >= 1.65 local star7 \sym{*}
if abs(`b7'/`se7')  >= 1.96 local star7 \sym{**}
if abs(`b7'/`se7')  >= 2.58 local star7 \sym{***}


file write cibtj "$>$2&" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "&" (`b7') "`star7'" "\\"_n
file write cibtj " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")" " &" "(" (`se7') ")" "\\"_n


xi: reg pos4  arabic woman i.age sameparty i.party, robust absorb(kkod)
lincom _b[arabic] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[woman]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _Iage_35
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom _Iage_45
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom _Iage_55
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom _Iage_65
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}
lincom sameparty
local b7 : di %05.3f r(estimate)
local se7 : di %05.3f r(se)
if abs(`b7'/`se7') < 1.65 local star7
if abs(`b7'/`se7')  >= 1.65 local star7 \sym{*}
if abs(`b7'/`se7')  >= 1.96 local star7 \sym{**}
if abs(`b7'/`se7')  >= 2.58 local star7 \sym{***}


file write cibtj "$>$3&" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "&" (`b7') "`star7'" "\\"_n
file write cibtj " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")" " &" "(" (`se7') ")" "\\"_n

file write cibtj "\bottomrule" _n
file write cibtj "\end{tabular}"
file close cibtj



************************************************************************************************
* Table D.13 in Appendix: Treatment Effects on Questions about Party Membership and Ideology   *
************************************************************************************************


file open cibtj2 using "${root}tex/tabD13.tex", write replace

file write cibtj2 "\begin{tabular}{lccccccc}" _n
file write cibtj2 "\toprule" _n
file write cibtj2 "  & \multicolumn{7}{c}{Treatment Effects:}\\" _n
file write cibtj2 "  & Arabic& Female \\" _n
file write cibtj2 " Outcome: & Name & Name & Age 35 & Age 45  & Age 55 & Age 65 & Co-Partisan \\" _n
file write cibtj2 "\midrule" _n

xi:  reg checkparty  arabic woman i.age sameparty i.party, absorb(kkod) robust
lincom _b[arabic] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[woman]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _Iage_35
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom _Iage_45
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom _Iage_55
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom _Iage_65
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}
lincom sameparty
local b7 : di %05.3f r(estimate)
local se7 : di %05.3f r(se)
if abs(`b7'/`se7') < 1.65 local star7
if abs(`b7'/`se7')  >= 1.65 local star7 \sym{*}
if abs(`b7'/`se7')  >= 1.96 local star7 \sym{**}
if abs(`b7'/`se7')  >= 2.58 local star7 \sym{***}


file write cibtj2 "\hspace{0.25cm}Party Membership Check&" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "&" (`b7') "`star7'" "\\"_n
file write cibtj2 " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")" " &" "(" (`se7') ")" "\\"_n

xi:  reg conditionalparty  arabic woman i.age sameparty i.party, absorb(kkod) robust
lincom _b[arabic] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[woman]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _Iage_35
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom _Iage_45
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom _Iage_55
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom _Iage_65
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}
lincom sameparty
local b7 : di %05.3f r(estimate)
local se7 : di %05.3f r(se)
if abs(`b7'/`se7') < 1.65 local star7
if abs(`b7'/`se7')  >= 1.65 local star7 \sym{*}
if abs(`b7'/`se7')  >= 1.96 local star7 \sym{**}
if abs(`b7'/`se7')  >= 2.58 local star7 \sym{***}


file write cibtj2 "\hspace{0.25cm}Party Membership Required&" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "&" (`b7') "`star7'" "\\"_n
file write cibtj2 " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")" " &" "(" (`se7') ")" "\\"_n

xi:  reg checkideology  arabic woman i.age sameparty i.party, absorb(kkod) robust
lincom _b[arabic] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[woman]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _Iage_35
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom _Iage_45
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom _Iage_55
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom _Iage_65
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}
lincom sameparty
local b7 : di %05.3f r(estimate)
local se7 : di %05.3f r(se)
if abs(`b7'/`se7') < 1.65 local star7
if abs(`b7'/`se7')  >= 1.65 local star7 \sym{*}
if abs(`b7'/`se7')  >= 1.96 local star7 \sym{**}
if abs(`b7'/`se7')  >= 2.58 local star7 \sym{***}


file write cibtj2 "\hspace{0.25cm}Party Ideology Check&" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "&" (`b7') "`star7'" "\\"_n
file write cibtj2 " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")" " &" "(" (`se7') ")" "\\"_n

xi:  reg conditionalideology arabic woman i.age sameparty i.party, absorb(kkod) robust
lincom _b[arabic] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[woman]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _Iage_35
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom _Iage_45
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom _Iage_55
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom _Iage_65
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}
lincom sameparty
local b7 : di %05.3f r(estimate)
local se7 : di %05.3f r(se)
if abs(`b7'/`se7') < 1.65 local star7
if abs(`b7'/`se7')  >= 1.65 local star7 \sym{*}
if abs(`b7'/`se7')  >= 1.96 local star7 \sym{**}
if abs(`b7'/`se7')  >= 2.58 local star7 \sym{***}


file write cibtj2 "\hspace{0.25cm}Party Ideology Required&" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "&" (`b7') "`star7'" "\\"_n
file write cibtj2 " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")" " &" "(" (`se7') ")" "\\"_n

file write cibtj2 "\bottomrule" _n
file write cibtj2 "\end{tabular}"
file close cibtj2


***************************************************************************************************************
* Table D.14 in Appendix: Differences in Treatment Effects for all Dependent Variables by Gender of E-mailer. *
***************************************************************************************************************



file open cibtj using "${root}tex/tabD14.tex", write replace

file write cibtj "\begin{tabular}{lcccccc}" _n
file write cibtj "\toprule" _n
file write cibtj "  & \multicolumn{6}{c}{Treatment Effects:}\\" _n
file write cibtj " & Arabic\\" _n
file write cibtj " Outcome: & Name & Age 35 & Age 45  & Age 55 & Age 65 & Co-Partisan \\" _n
file write cibtj "\midrule" _n

 xi: reg response c.woman##c.arabic  c.woman##age  c.woman##sameparty i.party, absorb(kkod) robust
matrix list e(b)

lincom c.woman#c.arabic
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom c.woman#35.age
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom c.woman#45.age
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom c.woman#55.age
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom c.woman#65.age
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom c.woman#1.sameparty
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}

file write cibtj "Response &" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "\\"_n
file write cibtj " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")"  "\\"_n

file write cibtj "\emph{Informativeness of Response:} \\"_n

xi: reg rewords c.woman##c.arabic  c.woman##age  c.woman##sameparty i.party, absorb(kkod) robust
matrix list e(b)

lincom c.woman#c.arabic
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom c.woman#35.age
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom c.woman#45.age
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom c.woman#55.age
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom c.woman#65.age
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom c.woman#1.sameparty
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}

file write cibtj "\# of Words &" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "\\"_n
file write cibtj " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")"  "\\"_n


xi: reg questionsanswered  c.woman##c.arabic  c.woman##age  c.woman##sameparty i.party, absorb(kkod) robust
matrix list e(b)

lincom c.woman#c.arabic
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom c.woman#35.age
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom c.woman#45.age
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom c.woman#55.age
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom c.woman#65.age
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom c.woman#1.sameparty
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}

file write cibtj "Questions Answered &" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "\\"_n
file write cibtj " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")"  "\\"_n

xi: reg addinfodummy c.woman##c.arabic  c.woman##age  c.woman##sameparty i.party, absorb(kkod) robust
matrix list e(b)

lincom c.woman#c.arabic
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom c.woman#35.age
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom c.woman#45.age
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom c.woman#55.age
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom c.woman#65.age
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom c.woman#1.sameparty
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}

file write cibtj "Additional Information &" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "\\"_n
file write cibtj " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")"  "\\"_n


file write cibtj "\emph{Tone of Response:} \\"_n

xi:  reg usesname  c.woman##c.arabic  c.woman##age  c.woman##sameparty i.party, absorb(kkod) robust
matrix list e(b)

lincom c.woman#c.arabic
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom c.woman#35.age
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom c.woman#45.age
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom c.woman#55.age
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom c.woman#65.age
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom c.woman#1.sameparty
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}

file write cibtj "\hspace{0.25cm}Uses Name&" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "\\"_n
file write cibtj " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")"  "\\"_n



xi:  reg welcome  c.woman##c.arabic  c.woman##age  c.woman##sameparty i.party, absorb(kkod) robust
matrix list e(b)

lincom c.woman#c.arabic
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom c.woman#35.age
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom c.woman#45.age
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom c.woman#55.age
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom c.woman#65.age
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom c.woman#1.sameparty
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}

file write cibtj "\hspace{0.25cm}Welcomes E-mail&" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "\\"_n
file write cibtj " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")"  "\\"_n

file write cibtj "\emph{Follow-up Meeting:} \\"_n


xi:  reg meeting  c.woman##c.arabic  c.woman##age  c.woman##sameparty i.party, absorb(kkod) robust
matrix list e(b)

lincom c.woman#c.arabic
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom c.woman#35.age
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom c.woman#45.age
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom c.woman#55.age
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom c.woman#65.age
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom c.woman#1.sameparty
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}

file write cibtj "\hspace{0.25cm}Future Party Contact&" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "\\"_n
file write cibtj " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")"  "\\"_n

xi:  reg pmeeting  c.woman##c.arabic  c.woman##age  c.woman##sameparty i.party, absorb(kkod) robust
matrix list e(b)

lincom c.woman#c.arabic
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom c.woman#35.age
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom c.woman#45.age
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom c.woman#55.age
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom c.woman#65.age
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom c.woman#1.sameparty
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}

file write cibtj "\hspace{0.25cm}Future Personal Contact&" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "\\"_n
file write cibtj " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")"  "\\"_n

file write cibtj "\bottomrule" _n
file write cibtj "\end{tabular}"
file close cibtj





*******************************************************************************************************************
* Table D.15 in Appendix: Differences in Treatment Effects for all Dependent Variables by Ethnicity of E-mailer.  *
*******************************************************************************************************************


file open cibtj using "${root}tex/tabD15.tex", write replace

file write cibtj "\begin{tabular}{lcccccc}" _n
file write cibtj "\toprule" _n
file write cibtj "  & \multicolumn{6}{c}{Treatment Effects:}\\" _n
file write cibtj " & Arabic\\" _n
file write cibtj " Outcome: & Name & Age 35 & Age 45  & Age 55 & Age 65 & Co-Partisan \\" _n
file write cibtj "\midrule" _n

 xi: reg response c.arabic##c.woman c.arabic##age  c.arabic##sameparty i.party, absorb(kkod) robust
matrix list e(b)

lincom c.arabic#c.woman
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom c.arabic#35.age
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom c.arabic#45.age
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom c.arabic#55.age
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom c.arabic#65.age
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom c.arabic#1.sameparty
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}

file write cibtj "Response &" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "\\"_n
file write cibtj " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")"  "\\"_n

file write cibtj "\emph{Informativeness of Response:} \\"_n

xi: reg rewords c.arabic##c.woman c.arabic##age  c.arabic##sameparty i.party, absorb(kkod) robust
matrix list e(b)

lincom c.arabic#c.woman
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom c.arabic#35.age
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom c.arabic#45.age
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom c.arabic#55.age
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom c.arabic#65.age
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom c.arabic#1.sameparty
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}

file write cibtj "\# of Words &" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "\\"_n
file write cibtj " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")"  "\\"_n


xi: reg questionsanswered  c.arabic##c.woman c.arabic##age  c.arabic##sameparty i.party, absorb(kkod) robust
matrix list e(b)

lincom c.arabic#c.woman
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom c.arabic#35.age
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom c.arabic#45.age
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom c.arabic#55.age
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom c.arabic#65.age
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom c.arabic#1.sameparty
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}


file write cibtj "Questions Answered &" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "\\"_n
file write cibtj " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")"  "\\"_n

xi: reg addinfodummy c.arabic##c.woman c.arabic##age  c.arabic##sameparty i.party, absorb(kkod) robust
matrix list e(b)

lincom c.arabic#c.woman
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom c.arabic#35.age
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom c.arabic#45.age
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom c.arabic#55.age
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom c.arabic#65.age
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom c.arabic#1.sameparty
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}

file write cibtj "Additional Information &" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "\\"_n
file write cibtj " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")"  "\\"_n


file write cibtj "\emph{Tone of Response:} \\"_n

xi:  reg usesname  c.arabic##c.woman c.arabic##age  c.arabic##sameparty i.party, absorb(kkod) robust
matrix list e(b)

lincom c.arabic#c.woman
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom c.arabic#35.age
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom c.arabic#45.age
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom c.arabic#55.age
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom c.arabic#65.age
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom c.arabic#1.sameparty
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}


file write cibtj "\hspace{0.25cm}Uses Name&" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "\\"_n
file write cibtj " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")"  "\\"_n



xi:  reg welcome  c.arabic##c.woman c.arabic##age  c.arabic##sameparty i.party, absorb(kkod) robust
matrix list e(b)

lincom c.arabic#c.woman
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom c.arabic#35.age
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom c.arabic#45.age
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom c.arabic#55.age
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom c.arabic#65.age
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom c.arabic#1.sameparty
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}


file write cibtj "\hspace{0.25cm}Welcomes E-mail&" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "\\"_n
file write cibtj " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")"  "\\"_n

file write cibtj "\emph{Follow-up Meeting:} \\"_n


xi:  reg meeting  c.arabic##c.woman c.arabic##age  c.arabic##sameparty i.party, absorb(kkod) robust
matrix list e(b)

lincom c.arabic#c.woman
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom c.arabic#35.age
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom c.arabic#45.age
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom c.arabic#55.age
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom c.arabic#65.age
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom c.arabic#1.sameparty
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}


file write cibtj "\hspace{0.25cm}Future Party Contact&" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "\\"_n
file write cibtj " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")"  "\\"_n

xi:  reg pmeeting  c.arabic##c.woman c.arabic##age  c.arabic##sameparty i.party, absorb(kkod) robust
matrix list e(b)

lincom c.arabic#c.woman
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom c.arabic#35.age
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom c.arabic#45.age
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom c.arabic#55.age
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom c.arabic#65.age
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom c.arabic#1.sameparty
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}

file write cibtj "\hspace{0.25cm}Future Personal Contact&" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "\\"_n
file write cibtj " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")"  "\\"_n

file write cibtj "\bottomrule" _n
file write cibtj "\end{tabular}"
file close cibtj





************************************************************************************************
* Table D.16 in Appendix: Treatment Effects interacted with parties' lr-ideology from CHES 2019*
************************************************************************************************

file open cibtj using "${root}tex/tableD16.tex", write replace

file write cibtj "\begin{tabular}{lccccccc}" _n
file write cibtj "\toprule" _n
file write cibtj "  & \multicolumn{7}{c}{Treatment Effects:}\\" _n
file write cibtj " & Arabic& Female \\" _n
file write cibtj " Outcome: & Name & Name & Age 35 & Age 45  & Age 55 & Age 65 & Co-Partisan \\" _n
file write cibtj "\midrule" _n

xi: reg response i.arabic*lrgen i.woman*lrgen i.age*lrgen i.sameparty*lrgen i.party, absorb(kkod) robust
lincom _Iarabic_1
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _Iwoman_1
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _Iage_35
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom _Iage_45
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom _Iage_55
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom _Iage_65
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}
lincom _Isameparty_1
local b7 : di %05.3f r(estimate)
local se7 : di %05.3f r(se)
if abs(`b7'/`se7') < 1.65 local star7
if abs(`b7'/`se7')  >= 1.65 local star7 \sym{*}
if abs(`b7'/`se7')  >= 1.96 local star7 \sym{**}
if abs(`b7'/`se7')  >= 2.58 local star7 \sym{***}


file write cibtj "Response &" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "&" (`b7') "`star7'" "\\"_n
file write cibtj " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")" " &" "(" (`se7') ")" "\\"_n

file write cibtj "\emph{Informativeness of Response:} \\"_n

xi: reg rewords i.arabic*lrgen i.woman*lrgen i.age*lrgen i.sameparty*lrgen i.party, absorb(kkod) robust
lincom _Iarabic_1
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _Iwoman_1
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _Iage_35
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom _Iage_45
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom _Iage_55
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom _Iage_65
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}
lincom _Isameparty_1
local b7 : di %05.3f r(estimate)
local se7 : di %05.3f r(se)
if abs(`b7'/`se7') < 1.65 local star7
if abs(`b7'/`se7')  >= 1.65 local star7 \sym{*}
if abs(`b7'/`se7')  >= 1.96 local star7 \sym{**}
if abs(`b7'/`se7')  >= 2.58 local star7 \sym{***}

file write cibtj "\# of Words &" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "&" (`b7') "`star7'" "\\"_n
file write cibtj " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")" " &" "(" (`se7') ")" "\\"_n


xi: reg questionsanswered  i.arabic*lrgen i.woman*lrgen i.age*lrgen i.sameparty*lrgen i.party, absorb(kkod) robust
lincom _Iarabic_1
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _Iwoman_1
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _Iage_35
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom _Iage_45
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom _Iage_55
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom _Iage_65
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}
lincom _Isameparty_1
local b7 : di %05.3f r(estimate)
local se7 : di %05.3f r(se)
if abs(`b7'/`se7') < 1.65 local star7
if abs(`b7'/`se7')  >= 1.65 local star7 \sym{*}
if abs(`b7'/`se7')  >= 1.96 local star7 \sym{**}
if abs(`b7'/`se7')  >= 2.58 local star7 \sym{***}


file write cibtj "Questions Answered &" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "&" (`b7') "`star7'" "\\"_n
file write cibtj " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")" " &" "(" (`se7') ")" "\\"_n


xi: reg addinfodummy i.arabic*lrgen i.woman*lrgen i.age*lrgen i.sameparty*lrgen i.party, absorb(kkod) robust
lincom _Iarabic_1
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _Iwoman_1
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _Iage_35
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom _Iage_45
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom _Iage_55
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom _Iage_65
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}
lincom _Isameparty_1
local b7 : di %05.3f r(estimate)
local se7 : di %05.3f r(se)
if abs(`b7'/`se7') < 1.65 local star7
if abs(`b7'/`se7')  >= 1.65 local star7 \sym{*}
if abs(`b7'/`se7')  >= 1.96 local star7 \sym{**}
if abs(`b7'/`se7')  >= 2.58 local star7 \sym{***}


file write cibtj "Additional Information &" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "&" (`b7') "`star7'" "\\"_n
file write cibtj " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")" " &" "(" (`se7') ")" "\\"_n


file write cibtj "\emph{Tone of Response:} \\"_n

xi:  reg usesname  i.arabic*lrgen i.woman*lrgen i.age*lrgen i.sameparty*lrgen i.party, absorb(kkod) robust
lincom _Iarabic_1
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _Iwoman_1
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _Iage_35
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom _Iage_45
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom _Iage_55
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom _Iage_65
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}
lincom _Isameparty_1
local b7 : di %05.3f r(estimate)
local se7 : di %05.3f r(se)
if abs(`b7'/`se7') < 1.65 local star7
if abs(`b7'/`se7')  >= 1.65 local star7 \sym{*}
if abs(`b7'/`se7')  >= 1.96 local star7 \sym{**}
if abs(`b7'/`se7')  >= 2.58 local star7 \sym{***}


file write cibtj "\hspace{0.25cm}Uses Name&" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "&" (`b7') "`star7'" "\\"_n
file write cibtj " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")" " &" "(" (`se7') ")" "\\"_n



xi:  reg welcome i.arabic*lrgen i.woman*lrgen i.age*lrgen i.sameparty*lrgen i.party, absorb(kkod) robust
lincom _Iarabic_1
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _Iwoman_1
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _Iage_35
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom _Iage_45
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom _Iage_55
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom _Iage_65
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}
lincom _Isameparty_1
local b7 : di %05.3f r(estimate)
local se7 : di %05.3f r(se)
if abs(`b7'/`se7') < 1.65 local star7
if abs(`b7'/`se7')  >= 1.65 local star7 \sym{*}
if abs(`b7'/`se7')  >= 1.96 local star7 \sym{**}
if abs(`b7'/`se7')  >= 2.58 local star7 \sym{***}


file write cibtj "\hspace{0.25cm}Welcomes E-mail&" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "&" (`b7') "`star7'" "\\"_n
file write cibtj " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")" " &" "(" (`se7') ")" "\\"_n

file write cibtj "\emph{Follow-up Meeting:} \\"_n


xi:  reg meeting i.arabic*lrgen i.woman*lrgen i.age*lrgen i.sameparty*lrgen i.party, absorb(kkod) robust
lincom _Iarabic_1
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _Iwoman_1
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _Iage_35
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom _Iage_45
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom _Iage_55
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom _Iage_65
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}
lincom _Isameparty_1
local b7 : di %05.3f r(estimate)
local se7 : di %05.3f r(se)
if abs(`b7'/`se7') < 1.65 local star7
if abs(`b7'/`se7')  >= 1.65 local star7 \sym{*}
if abs(`b7'/`se7')  >= 1.96 local star7 \sym{**}
if abs(`b7'/`se7')  >= 2.58 local star7 \sym{***}


file write cibtj "\hspace{0.25cm}Future Party Contact&" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "&" (`b7') "`star7'" "\\"_n
file write cibtj " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")" " &" "(" (`se7') ")" "\\"_n

xi:  reg pmeeting  i.arabic*lrgen i.woman*lrgen i.age*lrgen i.sameparty*lrgen i.party, absorb(kkod) robust
lincom _Iarabic_1
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _Iwoman_1
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _Iage_35
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom _Iage_45
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom _Iage_55
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom _Iage_65
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}
lincom _Isameparty_1
local b7 : di %05.3f r(estimate)
local se7 : di %05.3f r(se)
if abs(`b7'/`se7') < 1.65 local star7
if abs(`b7'/`se7')  >= 1.65 local star7 \sym{*}
if abs(`b7'/`se7')  >= 1.96 local star7 \sym{**}
if abs(`b7'/`se7')  >= 2.58 local star7 \sym{***}

file write cibtj "\hspace{0.25cm}Future Personal Contact&" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "&" (`b7') "`star7'" "\\"_n
file write cibtj " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")" " &" "(" (`se7') ")" "\\"_n

file write cibtj "\midrule" _n
file write cibtj "  & \multicolumn{7}{c}{Treatment Effects Interacted with Left-Right Position:}\\" _n
file write cibtj "  & Arabic& Female \\" _n
file write cibtj " Outcome: & Name & Name & Age 35 & Age 45  & Age 55 & Age 65 & Co-Partisan \\" _n
file write cibtj "\midrule" _n


xi: reg response i.arabic*lrgen i.woman*lrgen i.age*lrgen i.sameparty*lrgen i.party, absorb(kkod) robust
lincom _IaraXlrgen_1 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _IwomXlrgen_1
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _IageXlrge_35
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom _IageXlrge_45
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom _IageXlrge_55
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom _IageXlrge_65
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}
lincom _IsamXlrgen_1
local b7 : di %05.3f r(estimate)
local se7 : di %05.3f r(se)
if abs(`b7'/`se7') < 1.65 local star7
if abs(`b7'/`se7')  >= 1.65 local star7 \sym{*}
if abs(`b7'/`se7')  >= 1.96 local star7 \sym{**}
if abs(`b7'/`se7')  >= 2.58 local star7 \sym{***}


file write cibtj "Response &" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "&" (`b7') "`star7'" "\\"_n
file write cibtj " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")" " &" "(" (`se7') ")" "\\"_n

file write cibtj "\emph{Informativeness of Response:} \\"_n

xi: reg rewords i.arabic*lrgen i.woman*lrgen i.age*lrgen i.sameparty*lrgen i.party, absorb(kkod) robust
lincom _IaraXlrgen_1 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _IwomXlrgen_1
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _IageXlrge_35
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom _IageXlrge_45
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom _IageXlrge_55
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom _IageXlrge_65
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}
lincom _IsamXlrgen_1
local b7 : di %05.3f r(estimate)
local se7 : di %05.3f r(se)
if abs(`b7'/`se7') < 1.65 local star7
if abs(`b7'/`se7')  >= 1.65 local star7 \sym{*}
if abs(`b7'/`se7')  >= 1.96 local star7 \sym{**}
if abs(`b7'/`se7')  >= 2.58 local star7 \sym{***}


file write cibtj "\# of Words &" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "&" (`b7') "`star7'" "\\"_n
file write cibtj " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")" " &" "(" (`se7') ")" "\\"_n


xi: reg questionsanswered  i.arabic*lrgen i.woman*lrgen i.age*lrgen i.sameparty*lrgen i.party, absorb(kkod) robust
lincom _IaraXlrgen_1 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _IwomXlrgen_1
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _IageXlrge_35
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom _IageXlrge_45
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom _IageXlrge_55
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom _IageXlrge_65
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}
lincom _IsamXlrgen_1
local b7 : di %05.3f r(estimate)
local se7 : di %05.3f r(se)
if abs(`b7'/`se7') < 1.65 local star7
if abs(`b7'/`se7')  >= 1.65 local star7 \sym{*}
if abs(`b7'/`se7')  >= 1.96 local star7 \sym{**}
if abs(`b7'/`se7')  >= 2.58 local star7 \sym{***}


file write cibtj "Questions Answered &" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "&" (`b7') "`star7'" "\\"_n
file write cibtj " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")" " &" "(" (`se7') ")" "\\"_n


xi: reg addinfodummy i.arabic*lrgen i.woman*lrgen i.age*lrgen i.sameparty*lrgen i.party, absorb(kkod) robust
lincom _IaraXlrgen_1 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _IwomXlrgen_1
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _IageXlrge_35
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom _IageXlrge_45
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom _IageXlrge_55
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom _IageXlrge_65
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}
lincom _IsamXlrgen_1
local b7 : di %05.3f r(estimate)
local se7 : di %05.3f r(se)
if abs(`b7'/`se7') < 1.65 local star7
if abs(`b7'/`se7')  >= 1.65 local star7 \sym{*}
if abs(`b7'/`se7')  >= 1.96 local star7 \sym{**}
if abs(`b7'/`se7')  >= 2.58 local star7 \sym{***}



file write cibtj "Additional Information &" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "&" (`b7') "`star7'" "\\"_n
file write cibtj " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")" " &" "(" (`se7') ")" "\\"_n


file write cibtj "\emph{Tone of Response:} \\"_n

xi:  reg usesname  i.arabic*lrgen i.woman*lrgen i.age*lrgen i.sameparty*lrgen i.party, absorb(kkod) robust
lincom _IaraXlrgen_1 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _IwomXlrgen_1
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _IageXlrge_35
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom _IageXlrge_45
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom _IageXlrge_55
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom _IageXlrge_65
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}
lincom _IsamXlrgen_1
local b7 : di %05.3f r(estimate)
local se7 : di %05.3f r(se)
if abs(`b7'/`se7') < 1.65 local star7
if abs(`b7'/`se7')  >= 1.65 local star7 \sym{*}
if abs(`b7'/`se7')  >= 1.96 local star7 \sym{**}
if abs(`b7'/`se7')  >= 2.58 local star7 \sym{***}


file write cibtj "\hspace{0.25cm}Uses Name&" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "&" (`b7') "`star7'" "\\"_n
file write cibtj " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")" " &" "(" (`se7') ")" "\\"_n



xi:  reg welcome i.arabic*lrgen i.woman*lrgen i.age*lrgen i.sameparty*lrgen i.party, absorb(kkod) robust
lincom _IaraXlrgen_1 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _IwomXlrgen_1
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _IageXlrge_35
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom _IageXlrge_45
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom _IageXlrge_55
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom _IageXlrge_65
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}
lincom _IsamXlrgen_1
local b7 : di %05.3f r(estimate)
local se7 : di %05.3f r(se)
if abs(`b7'/`se7') < 1.65 local star7
if abs(`b7'/`se7')  >= 1.65 local star7 \sym{*}
if abs(`b7'/`se7')  >= 1.96 local star7 \sym{**}
if abs(`b7'/`se7')  >= 2.58 local star7 \sym{***}


file write cibtj "\hspace{0.25cm}Welcomes E-mail&" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "&" (`b7') "`star7'" "\\"_n
file write cibtj " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")" " &" "(" (`se7') ")" "\\"_n

file write cibtj "\emph{Follow-up Meeting:} \\"_n


xi:  reg meeting  i.arabic*lrgen i.woman*lrgen i.age*lrgen i.sameparty*lrgen i.party, absorb(kkod) robust
lincom _IaraXlrgen_1 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _IwomXlrgen_1
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _IageXlrge_35
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom _IageXlrge_45
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom _IageXlrge_55
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom _IageXlrge_65
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}
lincom _IsamXlrgen_1
local b7 : di %05.3f r(estimate)
local se7 : di %05.3f r(se)
if abs(`b7'/`se7') < 1.65 local star7
if abs(`b7'/`se7')  >= 1.65 local star7 \sym{*}
if abs(`b7'/`se7')  >= 1.96 local star7 \sym{**}
if abs(`b7'/`se7')  >= 2.58 local star7 \sym{***}


file write cibtj "\hspace{0.25cm}Future Party Contact&" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "&" (`b7') "`star7'" "\\"_n
file write cibtj " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")" " &" "(" (`se7') ")" "\\"_n

xi:  reg pmeeting  i.arabic*lrgen i.woman*lrgen i.age*lrgen i.sameparty*lrgen i.party, absorb(kkod) robust
lincom _IaraXlrgen_1 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _IwomXlrgen_1
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _IageXlrge_35
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom _IageXlrge_45
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom _IageXlrge_55
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom _IageXlrge_65
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}
lincom _IsamXlrgen_1
local b7 : di %05.3f r(estimate)
local se7 : di %05.3f r(se)
if abs(`b7'/`se7') < 1.65 local star7
if abs(`b7'/`se7')  >= 1.65 local star7 \sym{*}
if abs(`b7'/`se7')  >= 1.96 local star7 \sym{**}
if abs(`b7'/`se7')  >= 2.58 local star7 \sym{***}


file write cibtj "\hspace{0.25cm}Future Personal Contact&" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "&" (`b7') "`star7'" "\\"_n
file write cibtj " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")" " &" "(" (`se7') ")" "\\"_n


file write cibtj "\bottomrule" _n
file write cibtj "\end{tabular}"
file close cibtj

******************************************************************
* Tables D.17 to D.24 for Appendix: Treatment Effects by party   *
******************************************************************

tab partibeteckn

foreach i of newlist V SD S M MP KD L C {
	if "`i'"=="V" local j D17
	if "`i'"=="MP" local j D18
	if "`i'"=="S" local j D19
	if "`i'"=="C" local j D20
	if "`i'"=="L" local j D21
	if "`i'"=="M" local j D22
	if "`i'"=="KD" local j D23
	if "`i'"=="SD" local j D24
	
	
file open cibtj using "${root}tex/tab`j'.tex", write replace

file write cibtj "\begin{tabular}{lccccccc}" _n
file write cibtj "\toprule" _n
file write cibtj "  & \multicolumn{7}{c}{Treatment Effects:}\\" _n
file write cibtj "  & Arabic& Female \\" _n
file write cibtj " Outcome: & Name & Name & Age 35 & Age 45  & Age 55 & Age 65 & Co-Partisan \\" _n
file write cibtj "\midrule" _n

xi: reg response arabic woman i.age sameparty if partibeteckn=="`i'",  robust
lincom _b[arabic] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[woman]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _Iage_35
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom _Iage_45
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom _Iage_55
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom _Iage_65
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}
lincom sameparty
local b7 : di %05.3f r(estimate)
local se7 : di %05.3f r(se)
if abs(`b7'/`se7') < 1.65 local star7
if abs(`b7'/`se7')  >= 1.65 local star7 \sym{*}
if abs(`b7'/`se7')  >= 1.96 local star7 \sym{**}
if abs(`b7'/`se7')  >= 2.58 local star7 \sym{***}


file write cibtj "Response &" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "&" (`b7') "`star7'" "\\"_n
file write cibtj " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")" " &" "(" (`se7') ")" "\\"_n

file write cibtj "\emph{Informativeness of Response:} \\"_n

xi: reg rewords arabic woman i.age sameparty if partibeteckn=="`i'",  robust
lincom _b[arabic] 
local b : di %05.2f r(estimate)
local se : di %05.2f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[woman]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _Iage_35
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom _Iage_45
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom _Iage_55
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom _Iage_65
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}
lincom sameparty
local b7 : di %05.3f r(estimate)
local se7 : di %05.3f r(se)
if abs(`b7'/`se7') < 1.65 local star7
if abs(`b7'/`se7')  >= 1.65 local star7 \sym{*}
if abs(`b7'/`se7')  >= 1.96 local star7 \sym{**}
if abs(`b7'/`se7')  >= 2.58 local star7 \sym{***}

file write cibtj "\# of Words &" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "&" (`b7') "`star7'" "\\"_n
file write cibtj " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")" " &" "(" (`se7') ")" "\\"_n


xi: reg questionsanswered  arabic woman i.age sameparty if partibeteckn=="`i'",  robust
lincom _b[arabic] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[woman]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _Iage_35
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom _Iage_45
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom _Iage_55
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom _Iage_65
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}
lincom sameparty
local b7 : di %05.3f r(estimate)
local se7 : di %05.3f r(se)
if abs(`b7'/`se7') < 1.65 local star7
if abs(`b7'/`se7')  >= 1.65 local star7 \sym{*}
if abs(`b7'/`se7')  >= 1.96 local star7 \sym{**}
if abs(`b7'/`se7')  >= 2.58 local star7 \sym{***}


file write cibtj "Questions Answered &" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "&" (`b7') "`star7'" "\\"_n
file write cibtj " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")" " &" "(" (`se7') ")" "\\"_n


xi: reg addinfodummy arabic woman i.age sameparty if partibeteckn=="`i'",  robust
lincom _b[arabic] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[woman]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _Iage_35
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom _Iage_45
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom _Iage_55
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom _Iage_65
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}
lincom sameparty
local b7 : di %05.3f r(estimate)
local se7 : di %05.3f r(se)
if abs(`b7'/`se7') < 1.65 local star7
if abs(`b7'/`se7')  >= 1.65 local star7 \sym{*}
if abs(`b7'/`se7')  >= 1.96 local star7 \sym{**}
if abs(`b7'/`se7')  >= 2.58 local star7 \sym{***}


file write cibtj "Additional Information &" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "&" (`b7') "`star7'" "\\"_n
file write cibtj " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")" " &" "(" (`se7') ")" "\\"_n


file write cibtj "\emph{Tone of Response:} \\"_n

xi:  reg usesname  arabic woman i.age sameparty if partibeteckn=="`i'",  robust
lincom _b[arabic] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[woman]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _Iage_35
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom _Iage_45
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom _Iage_55
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom _Iage_65
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}
lincom sameparty
local b7 : di %05.3f r(estimate)
local se7 : di %05.3f r(se)
if abs(`b7'/`se7') < 1.65 local star7
if abs(`b7'/`se7')  >= 1.65 local star7 \sym{*}
if abs(`b7'/`se7')  >= 1.96 local star7 \sym{**}
if abs(`b7'/`se7')  >= 2.58 local star7 \sym{***}


file write cibtj "\hspace{0.25cm}Uses Name&" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "&" (`b7') "`star7'" "\\"_n
file write cibtj " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")" " &" "(" (`se7') ")" "\\"_n



xi:  reg welcome  arabic woman i.age sameparty if partibeteckn=="`i'", robust
lincom _b[arabic] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[woman]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _Iage_35
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom _Iage_45
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom _Iage_55
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom _Iage_65
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}
lincom sameparty
local b7 : di %05.3f r(estimate)
local se7 : di %05.3f r(se)
if abs(`b7'/`se7') < 1.65 local star7
if abs(`b7'/`se7')  >= 1.65 local star7 \sym{*}
if abs(`b7'/`se7')  >= 1.96 local star7 \sym{**}
if abs(`b7'/`se7')  >= 2.58 local star7 \sym{***}


file write cibtj "\hspace{0.25cm}Welcomes E-mail&" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "&" (`b7') "`star7'" "\\"_n
file write cibtj " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")" " &" "(" (`se7') ")" "\\"_n

file write cibtj "\emph{Follow-up Meeting:} \\"_n


xi:  reg meeting  arabic woman i.age sameparty if partibeteckn=="`i'", robust
lincom _b[arabic] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[woman]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _Iage_35
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom _Iage_45
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom _Iage_55
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom _Iage_65
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}
lincom sameparty
local b7 : di %05.3f r(estimate)
local se7 : di %05.3f r(se)
if abs(`b7'/`se7') < 1.65 local star7
if abs(`b7'/`se7')  >= 1.65 local star7 \sym{*}
if abs(`b7'/`se7')  >= 1.96 local star7 \sym{**}
if abs(`b7'/`se7')  >= 2.58 local star7 \sym{***}


file write cibtj "\hspace{0.25cm}Future Party Contact&" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "&" (`b7') "`star7'" "\\"_n
file write cibtj " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")" " &" "(" (`se7') ")" "\\"_n

xi:  reg pmeeting  arabic woman i.age sameparty if partibeteckn=="`i'",  robust
lincom _b[arabic] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[woman]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _Iage_35
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom _Iage_45
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom _Iage_55
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom _Iage_65
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}
lincom sameparty
local b7 : di %05.3f r(estimate)
local se7 : di %05.3f r(se)
if abs(`b7'/`se7') < 1.65 local star7
if abs(`b7'/`se7')  >= 1.65 local star7 \sym{*}
if abs(`b7'/`se7')  >= 1.96 local star7 \sym{**}
if abs(`b7'/`se7')  >= 2.58 local star7 \sym{***}


file write cibtj "\hspace{0.25cm}Future Personal Contact&" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "&" (`b7') "`star7'" "\\"_n
file write cibtj " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")" " &" "(" (`se7') ")" "\\"_n

file write cibtj "\bottomrule" _n
file write cibtj "\end{tabular}"
file close cibtj
}



************************************************************
* Table D.25 for Appendix: Excluding low quality responses *
************************************************************

gen restriction=1 if sameparty==1 & (checkparty==1 | conditionalparty==1 | checkideology==1 | conditionalideology==1)


file open cibtj using "${root}tex/tabD25.tex", write replace

file write cibtj "\begin{tabular}{lccccccc}" _n
file write cibtj "\toprule" _n
file write cibtj "  & \multicolumn{7}{c}{Treatment Effects:}\\" _n
file write cibtj "  & Arabic& Female \\" _n
file write cibtj " Outcome: & Name & Name & Age 35 & Age 45  & Age 55 & Age 65 & Co-Partisan \\" _n
file write cibtj "\midrule" _n


file write cibtj "\emph{Informativeness of Response:} \\"_n

xi: reg rewords arabic woman i.age sameparty i.party  if restriction!=1 & response==1, absorb(kkod) robust
lincom _b[arabic] 
local b : di %05.2f r(estimate)
local se : di %05.2f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[woman]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _Iage_35
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom _Iage_45
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom _Iage_55
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom _Iage_65
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}
lincom sameparty
local b7 : di %05.3f r(estimate)
local se7 : di %05.3f r(se)
if abs(`b7'/`se7') < 1.65 local star7
if abs(`b7'/`se7')  >= 1.65 local star7 \sym{*}
if abs(`b7'/`se7')  >= 1.96 local star7 \sym{**}
if abs(`b7'/`se7')  >= 2.58 local star7 \sym{***}

file write cibtj "\# of Words &" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "&" (`b7') "`star7'" "\\"_n
file write cibtj " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")" " &" "(" (`se7') ")" "\\"_n


xi: reg questionsanswered  arabic woman i.age sameparty i.party  if restriction!=1 & response==1, absorb(kkod) robust
lincom _b[arabic] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[woman]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _Iage_35
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom _Iage_45
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom _Iage_55
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom _Iage_65
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}
lincom sameparty
local b7 : di %05.3f r(estimate)
local se7 : di %05.3f r(se)
if abs(`b7'/`se7') < 1.65 local star7
if abs(`b7'/`se7')  >= 1.65 local star7 \sym{*}
if abs(`b7'/`se7')  >= 1.96 local star7 \sym{**}
if abs(`b7'/`se7')  >= 2.58 local star7 \sym{***}


file write cibtj "Questions Answered &" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "&" (`b7') "`star7'" "\\"_n
file write cibtj " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")" " &" "(" (`se7') ")" "\\"_n


xi: reg addinfodummy arabic woman i.age sameparty i.party  if restriction!=1 & response==1, absorb(kkod) robust
lincom _b[arabic] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[woman]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _Iage_35
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom _Iage_45
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom _Iage_55
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom _Iage_65
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}
lincom sameparty
local b7 : di %05.3f r(estimate)
local se7 : di %05.3f r(se)
if abs(`b7'/`se7') < 1.65 local star7
if abs(`b7'/`se7')  >= 1.65 local star7 \sym{*}
if abs(`b7'/`se7')  >= 1.96 local star7 \sym{**}
if abs(`b7'/`se7')  >= 2.58 local star7 \sym{***}


file write cibtj "Additional Information &" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "&" (`b7') "`star7'" "\\"_n
file write cibtj " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")" " &" "(" (`se7') ")" "\\"_n


file write cibtj "\emph{Tone of Response:} \\"_n

xi:  reg usesname  arabic woman i.age sameparty i.party  if restriction!=1 & response==1, absorb(kkod) robust
lincom _b[arabic] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[woman]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _Iage_35
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom _Iage_45
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom _Iage_55
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom _Iage_65
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}
lincom sameparty
local b7 : di %05.3f r(estimate)
local se7 : di %05.3f r(se)
if abs(`b7'/`se7') < 1.65 local star7
if abs(`b7'/`se7')  >= 1.65 local star7 \sym{*}
if abs(`b7'/`se7')  >= 1.96 local star7 \sym{**}
if abs(`b7'/`se7')  >= 2.58 local star7 \sym{***}


file write cibtj "\hspace{0.25cm}Uses Name&" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "&" (`b7') "`star7'" "\\"_n
file write cibtj " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")" " &" "(" (`se7') ")" "\\"_n



xi:  reg welcome  arabic woman i.age sameparty i.party  if restriction!=1 & response==1, absorb(kkod) robust
lincom _b[arabic] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[woman]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _Iage_35
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom _Iage_45
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom _Iage_55
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom _Iage_65
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}
lincom sameparty
local b7 : di %05.3f r(estimate)
local se7 : di %05.3f r(se)
if abs(`b7'/`se7') < 1.65 local star7
if abs(`b7'/`se7')  >= 1.65 local star7 \sym{*}
if abs(`b7'/`se7')  >= 1.96 local star7 \sym{**}
if abs(`b7'/`se7')  >= 2.58 local star7 \sym{***}


file write cibtj "\hspace{0.25cm}Welcomes E-mail&" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "&" (`b7') "`star7'" "\\"_n
file write cibtj " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")" " &" "(" (`se7') ")" "\\"_n

file write cibtj "\emph{Follow-up Meeting:} \\"_n


xi:  reg meeting  arabic woman i.age sameparty i.party  if restriction!=1 & response==1, absorb(kkod) robust
lincom _b[arabic] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[woman]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _Iage_35
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom _Iage_45
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom _Iage_55
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom _Iage_65
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}
lincom sameparty
local b7 : di %05.3f r(estimate)
local se7 : di %05.3f r(se)
if abs(`b7'/`se7') < 1.65 local star7
if abs(`b7'/`se7')  >= 1.65 local star7 \sym{*}
if abs(`b7'/`se7')  >= 1.96 local star7 \sym{**}
if abs(`b7'/`se7')  >= 2.58 local star7 \sym{***}


file write cibtj "\hspace{0.25cm}Future Party Contact&" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "&" (`b7') "`star7'" "\\"_n
file write cibtj " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")" " &" "(" (`se7') ")" "\\"_n

xi:  reg pmeeting  arabic woman i.age sameparty i.party  if restriction!=1 & response==1, absorb(kkod) robust
lincom _b[arabic] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[woman]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _Iage_35
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom _Iage_45
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
lincom _Iage_55
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5
if abs(`b5'/`se5')  >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5')  >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5')  >= 2.58 local star5 \sym{***}
lincom _Iage_65
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6')  >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6')  >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6')  >= 2.58 local star6 \sym{***}
lincom sameparty
local b7 : di %05.3f r(estimate)
local se7 : di %05.3f r(se)
if abs(`b7'/`se7') < 1.65 local star7
if abs(`b7'/`se7')  >= 1.65 local star7 \sym{*}
if abs(`b7'/`se7')  >= 1.96 local star7 \sym{**}
if abs(`b7'/`se7')  >= 2.58 local star7 \sym{***}


file write cibtj "\hspace{0.25cm}Future Personal Contact&" (`b') "`star' " " &"  (`b2') "`star2'" "&" (`b3') "`star3'" "&" (`b4') "`star4'" "&" (`b5') "`star5'" "&" (`b6') "`star6'" "&" (`b7') "`star7'" "\\"_n
file write cibtj " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" " &" "(" (`se4') ")" " &" "(" (`se5') ")" " &" "(" (`se6') ")" " &" "(" (`se7') ")" "\\"_n

file write cibtj "\bottomrule" _n
file write cibtj "\end{tabular}"
file close cibtj





*********************************************************************************************************
*Table D.26 for Appendix: Do Response Rates and Treatment Effects Vary With Municipal-Level Moderators? *
*********************************************************************************************************



gen moderator=shareimmi

xi: reg response  arabic woman i.age sameparty  i.party i.arabic*moderator i.woman*moderator i.age*moderator i.sameparty*moderator,  robust

outreg2 using "${root}tex/tabD26.tex", replace ctitle(Model 1)  keep(arabic woman _Iage_35 _Iage_45 _Iage_55  _Iage_65  _IaraXmoder_1 _IwomXmoder_1 _IageXmode_35 _IageXmode_45 _IageXmode_55 _IageXmode_65 _IsamXmoder_1) nocons 



gen pop=folkmängd/100000

label var pop "Population in 100 000s"

replace moderator=pop

xi: reg response  arabic woman i.age sameparty  i.party i.arabic*moderator i.woman*moderator i.age*moderator i.sameparty*moderator,  robust

outreg2 using "${root}tex/tabD26.tex", append ctitle(Model 2)  keep(arabic woman _Iage_35 _Iage_45 _Iage_55  _Iage_65  _IaraXmoder_1 _IwomXmoder_1 _IageXmode_35 _IageXmode_45 _IageXmode_55 _IageXmode_65 _IsamXmoder_1) nocons



label var popdens "Population per sq km"

replace moderator=popdens

xi: reg response  arabic woman i.age sameparty  i.party i.arabic*moderator i.woman*moderator i.age*moderator i.sameparty*moderator,  robust

outreg2 using "${root}tex/tabD26.tex", append ctitle(Model 3)  keep(arabic woman _Iage_35 _Iage_45 _Iage_55  _Iage_65  _IaraXmoder_1 _IwomXmoder_1 _IageXmode_35 _IageXmode_45 _IageXmode_55 _IageXmode_65 _IsamXmoder_1) nocons


sort kkod 
by kkod: egen noparties=count(kkod)

replace moderator=noparties

xi: reg response  arabic woman i.age sameparty  i.party i.arabic*moderator  i.age*moderator i.sameparty*moderator i.woman*moderator,  robust

outreg2 using "${root}tex/tabD26.tex", append ctitle(Model 4)  keep(arabic woman _Iage_35 _Iage_45 _Iage_55  _Iage_65  _IaraXmoder_1 _IwomXmoder_1 _IageXmode_35 _IageXmode_45 _IageXmode_55 _IageXmode_65 _IsamXmoder_1) nocons 
